* Do not crash if the output directory is created in the meanwhile

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 342faa2879e535a8af7dfb77294b301d392f0d50..f16aa59dc5e8bf98f4ed06a33ad6450cf901c946 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2013,7 +2013,9 @@ Prepare every function for final compilation and drive the C back-end."
   (let ((dir (file-name-directory name)))
     (comp-finalize-relocs)
     (unless (file-exists-p dir)
-      (make-directory dir))
+      ;; In case it's created in the meanwhile.
+      (ignore-error 'file-already-exists
+        (make-directory dir)))
     (unless comp-dry-run
       (comp--compile-ctxt-to-file name))))